﻿Public Class FormModificarEquipo

    Private _miCampeonato As Campeonato
    Private _idEquipo As Integer
    Private _idJugadorCapitan As Integer
    Private _idJugadorNormal As Integer

    Property idEquipo As Integer
        Get
            Return Me._idEquipo
        End Get
        Set(value As Integer)
            Me._idEquipo = value
        End Set
    End Property

    Property idJugadorCapitan As Integer
        Get
            Return Me._idJugadorCapitan
        End Get
        Set(value As Integer)
            Me._idJugadorCapitan = value
        End Set
    End Property

    Property idJugadorNormal As Integer
        Get
            Return Me._idJugadorNormal
        End Get
        Set(value As Integer)
            Me._idJugadorNormal = value
        End Set
    End Property

    Private Sub FormModificarEquipo_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = FormEntrada
        Me._miCampeonato = New Campeonato()
    End Sub

    Private Sub btnModBuscar_Click(sender As Object, e As EventArgs) Handles btnModBuscar.Click
        FormBuscarJugadores.Show()
        FormBuscarJugadores.formDestino = "FormModificarEquipo"
        FormBuscarJugadores.jugadorSeleccionadoEnForAltaEquipo = "J1"
    End Sub

    Private Sub btnModBuscar2_Click(sender As Object, e As EventArgs) Handles btnModBuscar2.Click
        FormBuscarJugadores.Show()
        FormBuscarJugadores.formDestino = "FormModificarEquipo"
        FormBuscarJugadores.jugadorSeleccionadoEnForAltaEquipo = "J2"
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        FormBuscarEquipo.Show()
        FormBuscarEquipo.formularioDestino = "FormModificarEquipo"
    End Sub

    Private Sub ButtonModificarEquipo_Click(sender As Object, e As EventArgs) Handles ButtonModificarEquipo.Click
        Dim campoRellenado As Boolean = False

        If tbxModNombreEquipo.Text.Length = 0 Then
            ErrorProvider1.SetError(tbxModNombreEquipo, "Este campo no puede estar vacío.")
        Else
            ErrorProvider1.SetError(tbxModNombreEquipo, Nothing)
            campoRellenado = True
        End If
        If campoRellenado = True Then
            Me._miCampeonato.actualizarEquipo(Me.tbxModNombreEquipo.Text, Me._idJugadorCapitan, Me._idJugadorNormal, Me._idEquipo, _
                                              FormBuscarEquipo.idAnterior1, FormBuscarEquipo.idAnterior2)
        End If
    End Sub

    Private Sub ButtonModBorrar_Click(sender As Object, e As EventArgs) Handles ButtonModBorrar.Click
        Me.Close()
    End Sub

End Class